home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / fortran / fckdemo1.zip / PRECISIO.LST < prev    next >
File List  |  1994-04-12  |  2KB  |  57 lines
  1.  FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:08:10  page: 1
  2.  PRECISIO.FOR  
  3.  
  4.  
  5.       1 c
  6.       2 c                       FORCHECK
  7.       3 c                   Loss of Precision
  8.       4 
  9.       5         DOUBLE PRECISION pi
  10.       6         DATA pi /3.14/
  11.       7 
  12.    3.14
  13.  **[354 I] implicit conversion of constant (expr.) to higher accuracy
  14.       8         r = 2. * pi
  15.    2. * pi
  16.  **[355 I] implicit conversion to less accurate data type
  17.       9         i = r / 2.
  18.      10 
  19.    r / 2.
  20.  **[355 I] implicit conversion to less accurate data type
  21.      11         PRINT *, i
  22.      12 
  23.      13         END
  24.  
  25.  FORCHECK PC V11.10          .MAIN.          02-Feb-94  11:08:10  page: 2
  26.  PRECISIO.FOR  
  27.  
  28.  
  29.  ENTRY          TYPE NARG  LINE
  30.  
  31.     .MAIN.         P
  32.  
  33.  
  34.  VARIABLE  TYPE     RANK  OPERATIONS  LINES
  35.  
  36.     I       I*4                A    O  9# 11
  37.     PI      R*8               D    R   5   6#  8
  38.     R       R*4                A   R   8#  9
  39.  
  40.  FORCHECK PC V11.10  MS5 compiler emulation  02-Feb-94  11:08:10  page: 3
  41.  
  42.  
  43.  *END OF ANALYSIS*
  44.  
  45.  messages presented:
  46.    1x[354 I] implicit conversion of constant (expr.) to higher accuracy
  47.    2x[355 I] implicit conversion to less accurate data type
  48.  
  49.  number of informative messages:          3
  50.  
  51.                                       total  not-included
  52.  number of noncomment source lines:       6             6
  53.  number of nonempty comment lines:        2             2
  54.  number of statements:                    6             6
  55.  number of subprograms:                   1
  56.  number of source files:                  1
  57.